<%option explicit%>
<%
	Response.Expires = 0

Dim sXmlTablaReporte
Dim oXml , sTabla, iCantiCampos

Set oXml = Server.CreateObject("Microsoft.xmldom") 

sXmlTablaReporte = request("txtDatos")


oXml.loadXML(sXmlTablaReporte)


'Formato del XML que recibe
'<reporte>
'	<cabeceraReporte titulo="tituloreporte" fecha="12/12/2002" autor="rpereyra" ></cabeceraReporte>
'	<cabeceraTabla>
'		<campo nombre="nombre" ancho='50'></campo>
'		<campo nombre="otro" ancho='90'></campo>
'	</cabeceraTabla>
'	<cuerpoTabla>
'		<fila c1="primer" c2="otro1" />
'		<fila c1="segundo" c2="otro2" />
'	</cuerpoTabla>
'</reporte>
Dim sTitulo, dFecha , sAutor, iFila, iCampo

sTitulo = oXml.childNodes(0).childNodes(0).attributes(0).text 
dFecha = oXml.childNodes(0).childNodes(0).attributes(1).text
sAutor = oXml.childNodes(0).childNodes(0).attributes(2).text
iCantiCampos = oXml.childNodes(0).childNodes(1).childNodes.length

sTabla = "<table id='tbl' width='100%' border=1>"

'Desde el Xml de parametro creo la cabecera de la tabla HTML
sTabla = sTabla & "<thead class='headtablamodal' >"
for iCampo = 0 to iCantiCampos - 1
	'sTabla = sTabla & "<td align='center' wrap width='" & oXml.childNodes(0).childNodes(1).childNodes(iCampo).attributes(1).text &  "' >" & oXml.childNodes(0).childNodes(1).childNodes(iCampo).attributes(0).text & "</td>"
	sTabla = sTabla & "<td align='center' wrap >" & oXml.childNodes(0).childNodes(1).childNodes(iCampo).attributes(0).text & "</td>"
next
sTabla = sTabla & "</thead>"


'Creo las filas de la tabla HTML que contiene los  datos 
for iFila = 0 to oXml.childNodes(0).childNodes(2).childNodes.length - 1
	sTabla = sTabla & "<tr class='tablaModal'>"
	for iCampo = 0 to iCantiCampos - 1
		'sTabla = sTabla & "<td wrap width='" & oXml.childNodes(0).childNodes(1).childNodes(iCampo).attributes(1).text &  "'>" & oXml.childNodes(0).childNodes(2).childNodes(iFila).attributes(iCampo).text & "</td>"
		sTabla = sTabla & "<td wrap >" & oXml.childNodes(0).childNodes(2).childNodes(iFila).attributes(iCampo).text & "</td>"
	next
	sTabla = sTabla & "</tr>"
next
sTabla = sTabla & "</table>"



	
%>
<HTML>
<title>Reporte SIGIN</title>
<LINK rel="stylesheet" type="text/css" href="Styles/EstilosModal.CSS">
<HEAD>
<script language="javaScript" >

function Inicio()
{

	parent.window.formReporte.txtDatos.click()


 //factory.printing.Print(true, "frmReporte")

}

</script>
</HEAD>
<BODY onload="Inicio()" background="white" >


<br>
<table id="tblEncabezado" width="80%"   >
	<tr>
		<td colspan=2 align="center" class="Plantillatitulo" > <u><b><%=sTitulo%></b></u></td>
	</tr>
	<tr>
		<td align="left" >
			<table>
				<tr  class="tituloDetaFases">
					<td class="txt" align="right" ><u>Fecha:</u></td>
					<td ><%=dFecha%></td>
				</tr>	
				<tr class="tituloDetaFases">
					<td class="txt" align="right" ><u>Autor:</u></td>
					<td><%=sAutor%></td>
				</tr>					
			</table>
		</td>
	</tr>	
</table>
<br>
<%=sTabla%>


</BODY>
</HTML>
<%
Set oXml = nothing
%>
